home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / kboot20.d64 / func.menu < prev    next >
Text File  |  2009-01-23  |  1KB  |  44 lines
  1. 0240 ╞╒╬├ MENU(NAME$(),ROW,COL,NUM#) ├╠╧╙┼─
  2. 0250   Z:=┌╧╬┼
  3. 0260   ┌╧╬┼ 0
  4. 0270   ─╔═ C$ ╧╞ 1, SPACE$ ╧╞ 40
  5. 0280   ─╔═ VALID$ ╧╞ 10
  6. 0290   SPACE$(1):=" "; MAX:=1
  7. 0300   LINE#:=1; DONE:=╞┴╠╙┼
  8. 0310   ╞╧╥ L#:=1 ╘╧ NUM# ─╧
  9. 0320     ╔╞ ╠┼╬(NAME$(L#))>MAX ╘╚┼╬ MAX:=╠┼╬(NAME$(L#))
  10. 0330   ┼╬─╞╧╥ L#
  11. 0340   ╥┼╨┼┴╘ 
  12. 0350     ╞╧╥ L#:=1 ╘╧ NUM# ─╧
  13. 0360       ╔╞ L#=LINE# ╘╚┼╬
  14. 0370         ╨╥╔╬╘ ""18"",
  15. 0380       ┼╠╙┼ 
  16. 0390         ╨╥╔╬╘ ""146"",
  17. 0400       ┼╬─╔╞ 
  18. 0410       SPACE$(2:MAX+2):=NAME$(L#)
  19. 0420       ╨╥╔╬╘ ┴╘ ROW+L#-1,COL: SPACE$,
  20. 0430     ┼╬─╞╧╥ L#
  21. 0440     VALID$:=""145""17""19""13""
  22. 0450     ╥┼╨┼┴╘ 
  23. 0460       C$:=╦┼┘$
  24. 0470       ╔╞ ┼╙├ ╘╚┼╬
  25. 0480         LINE#:=0
  26. 0490         C$:=├╚╥$(13)
  27. 0500       ┼╬─╔╞ 
  28. 0510     ╒╬╘╔╠ C$ ╔╬ VALID$
  29. 0520     ├┴╙┼ C$ ╧╞
  30. 0530     ╫╚┼╬ ├╚╥$(13)
  31. 0540       DONE:=╘╥╒┼
  32. 0550     ╫╚┼╬ ├╚╥$(19)
  33. 0560       LINE#:=1
  34. 0570     ╫╚┼╬ ├╚╥$(17)
  35. 0580       ╔╞ LINE#<NUM# ╘╚┼╬ LINE#:+1
  36. 0590     ╫╚┼╬ ├╚╥$(145)
  37. 0600       ╔╞ LINE#>1 ╘╚┼╬ LINE#:-1
  38. 0610     ╧╘╚┼╥╫╔╙┼ 
  39. 0620       ╬╒╠╠
  40. 0630     ┼╬─├┴╙┼ 
  41. 0640   ╒╬╘╔╠ DONE
  42. 0650   ╥┼╘╒╥╬ LINE#
  43. 0660 ┼╬─╞╒╬├ MENU
  44.